home *** CD-ROM | disk | FTP | other *** search
/ Directorty Opus 5 - Magellan 2 / Opus 5 - Magellan 2.iso / Extras / version13 / Version.dopus5 < prev    next >
Text File  |  1997-05-21  |  2KB  |  61 lines
  1. /*
  2. $VER: Version.dopus5 1.3 (21.5.97)
  3.  
  4.     Written by Steve Banham <sbanham@nor.com.au>
  5.  
  6.     A new version info display module for DOpus v5.5
  7.     
  8.     USAGE:  - Copy version.dopus5 to DOpus5:modules/
  9.             - A new version command is available from
  10.               pop-up command lists in all editors.
  11.             - Assign the version command to either a
  12.               button or menu and when the function is
  13.               called the version string for all selected
  14.               files in the source lister will be shown.
  15.  
  16. */
  17.  
  18. parse arg portname function source dest arguments
  19. address value portname
  20. options results
  21. lf='0a'x
  22.  
  23. if function = 'init' then do
  24.     dopus command "Version" program "Version" desc "'Display version strings'" 'source'
  25.     exit
  26.     end
  27.  
  28. if function = 'Version' then do
  29.  
  30.     lister query source path
  31.     path = strip(result, 'B', '"')
  32.     call pragma('d',path)
  33.  
  34.     lister query source selfiles stem files.
  35.     if files.count = 0|files.count = ''| files.count = 'FILES.COUNT' then call ERROR "No files selected"
  36.  
  37.     i = 0
  38.  
  39.     do while i < files.count
  40.         lister select source files.i off
  41.         lister refresh source full
  42.         
  43.         if ~open('FILE',files.i,'R')then call ERROR 'Cannot open "'files.i'"'
  44.         else
  45.             do
  46.              call close 'FILE'
  47.              address command 'version >T:version.tmp 'files.i' FILE FULL'
  48.              call open('temp','T:version.tmp','r')
  49.              text = "("||files.i||" )"||lf||READLN('temp')
  50.              call close('temp')
  51.              lister request source '"'||text||'" Continue'
  52.             end
  53.     i = i + 1    
  54.     end
  55. exit
  56.     
  57. ERROR:
  58. parse arg error
  59. lister request source "'"error"'" "OK"
  60. exit
  61.